home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 4
/
Apprentice-Release4.iso
/
Utilities
/
Programming
/
MT2ToolKit 1.0b1
/
CheckPasSyntax
< prev
next >
Wrap
Text File
|
1995-10-09
|
506b
|
22 lines
# --------------------------------------------------
# MT2ToolKit, version 1.0b1
# (C) Copyright by Michael Trofimov, 10/6/95.
# --------------------------------------------------
# CheckPasSyntax
Set Exit 0
if "{Active}" ≠ "{Worksheet}"
Open "{Worksheet}"
End
Find ∞ "{Worksheet}"
Set CurPos `Position "{Worksheet}" -l`
Echo "### Check Syntax :" >> "{Worksheet}"
Pascal -c "{Target}" ≥≥ "{Worksheet}"
if "{status}" == 0
Alert 'No errors'
Open "{Target}"
Else
Target "{Worksheet}"
line {CurPos}
End